<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.Open "eble"
	set rs=Server.CreateObject("adodb.Recordset")

	ISVENDEDOR=0
	ISCLIENTE=0
	JERARQUIA=""
	NOMBRE=""
	CODIGO=""
usuario = request("usuario") & ""
clave = request("clave") & ""


sql=       " SELECT * "
sql= sql & " FROM  [Tiendas]"
sql= sql & " WHERE Nombre = '" &  replace(CStr(usuario),"'","''")  
sql= sql & "' AND  CLAVE = '" & replace(CStr(clave),"'","''")  
sql= sql & "'  "
rs.open sql,conn
IF NOT RS.eof or NOT rs.BOF Then 
	tienda	=	rs("Codigo") & ""
	tiendaNom	=	rs("Nombre") & ""
	ISVENDEDOR=1
Else
	tienda=""
	ISVENDEDOR=0
END IF	
rs.close


'------SESSION("JERARQUIA")=JERARQUIA
if ISVENDEDOR=1 Then 
tipoUser="vendedor"
		Session("tpvallowed")		=	1
		Session("Tienda")		=	tienda
		RESPONSE.REDIRECT "TPV_ticket.asp"
Else
		Session("tpvallowed")		=	0
		RESPONSE.REDIRECT "..\eble\index.asp"
End if
%>